home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / intuition / window / welc2205.lha / Examples / Hatch < prev    next >
Encoding:
Text File  |  1993-05-06  |  866 b   |  46 lines
  1. /*
  2.  
  3.     Name        : Hatch
  4.     Created        : 2-May-93
  5.     Programmer    : Urban Lindeskog
  6.     Organisation    : ProNova SoftWare Development Group
  7.     Purpose        : To Provide a more friendly interface
  8.               to FHatch.
  9. */
  10.  
  11. OPTIONS RESULTS
  12. OPTIONS FAILAT 15
  13.  
  14. replace=""
  15.  
  16. address Command
  17.  
  18. 'Run Welcome LEFT "/Pictures/BigDisk" RIGHT "/Pictures/BigPNLogo" TEXT "Hatching files" COLUMNS 80 ROWS 10'
  19. 'Wait 1'
  20.  
  21. address WELCOME
  22.  
  23. REQUESTSTRING '"Enter full path for file:" "DL:"'
  24. filename=result
  25.  
  26. REQUESTSTRING '"Enter Area:"'
  27. area=result
  28.  
  29. REQUESTSTRING '"Enter File-Comment:"'
  30. comment=result
  31.  
  32. ASK '"Replace File?" " Yes " "  No "'
  33. if result then do
  34.     REQUESTSTRING '"File to Replace:"'
  35.     replace=result
  36. end
  37.  
  38. TITLE 'RIGHT "/Pictures/BigHand" TEXT "Working...    "'
  39.  
  40. address Command
  41. 'Copy "'filename'" "FILE:'area'"'
  42. 'FHatch MAIL:Tick.cfg "'filename'" "'area'" "'comment'" "'replace'"'
  43.  
  44. address WELCOME
  45. 'QUIT'
  46.